home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / ALOCDIRV.MOD < prev    next >
Encoding:
Text File  |  1987-05-18  |  942 b   |  27 lines
  1. (*----------------------------------------------------------------------*)
  2. (*  Allocate_Dial_And_Review --- Get memory for dial dir and review buf *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Allocate_Dial_And_Review;
  6.  
  7. BEGIN (* Allocate_Dial_And_Review *)
  8.                                    (* Allocate dialing directory *)
  9.  
  10.    GetMem( Dialing_Directory , Dialing_Dir_Size_Max *
  11.                                Dialing_Dir_Entry_Length );
  12.  
  13.                                    (* Get review buffer *)
  14.  
  15.    IF ( Max_Review_Length > ( MaxBlockAvail - 8000.0 ) ) THEN
  16.       Max_Review_Length    := MAX( 0 , TRUNC( MaxBlockAvail - 8000.0 ) );
  17.  
  18.    Review_On := ( Max_Review_Length > 0 );
  19.  
  20.    IF Review_On THEN
  21.       GetMem( Review_Buffer , Max_Review_Length );
  22.  
  23.    Review_Head      := 0;
  24.    Review_Tail      := 0;
  25.    Review_Line[0]   := #0;
  26.  
  27. END    (* Allocate_Dial_And_Review *);